home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / c / amiexpress / source / ae / code / ax3.00 / getholddesc.c < prev    next >
Encoding:
C/C++ Source or Header  |  1980-01-03  |  1.5 KB  |  54 lines
  1. #include "bbs.h"
  2.  
  3. //extern long Time_system;
  4. extern long fsize;
  5. //extern struct Commands Cmds;
  6. //extern struct User User;
  7. extern struct myst my_struct;
  8.  
  9. void NameUsed(char *str)
  10. {
  11.  sprintf(GSTR3,"The name %s is used, please rename.\r\n",str);
  12.  AEPutStr(GSTR3);
  13. }
  14.  
  15. char PurgeScanNM[31];
  16.  
  17. void StripReturn(char *);
  18.  
  19. BOOL LcFileXfr=0;
  20. void ScanHoldDesc(void)
  21. {
  22.   FILE *fi;
  23.   char *s, string[200], Text[200];
  24.   LcFileXfr=FALSE;
  25. sprintf(PurgeScanNM,"%d",User.Slot_Number);
  26.  
  27.  
  28.          sprintf(string,"%sLCFILES/%s.lc",Conference_Location,PurgeScanNM);
  29.          if(fi=fopen(string,"r")) { LcFileXfr=TRUE;
  30.              while(fgets(string,80,fi)!=NL) { 
  31.                     if(string[0]!=' ')
  32.                     {
  33.                       sprintf(Text,"%sLCFILES/%-13.13s",Conference_Location,string);
  34.                       StripReturn(Text);
  35.                       sprintf(GSTR3,"%sNode%d/PlayPen/%-13.13s",Cmds->BBSLoc,Cmds->AcLvl[LVL_NODE_NUMBER],
  36.                               string); StripReturn(GSTR3);
  37.                       if(Check_For_File(FilePart(Text))!=FAILURE)
  38.                       {  if(!Rename(Text,GSTR3))
  39.                          FileCopy(Text,GSTR3);
  40.                       }
  41.                       DeleteFile(Text);
  42.                      }
  43.                }
  44.              fclose(fi);
  45.              sprintf(string,"%sLCFILES/%s.lc",Conference_Location,PurgeScanNM);
  46.                   DeleteFile(string);
  47.                    Upload_a_File(1);
  48.          }   /* end if fi != NL */
  49.     LcFileXfr=FALSE;
  50.     AEPutStr("\r\n");
  51.  
  52. }
  53.  
  54.